home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / pulldw.zip / PULLDOWN.DOC next >
Text File  |  1987-12-04  |  2KB  |  69 lines
  1.  
  2. PULLDWN4.ARC
  3. {
  4. by   Bill Bane
  5.      Rt 1 Box 214
  6.      Sumner, TX 75486
  7.  
  8.      tel 214-785-5767   work: 214-784-1424
  9.  
  10. [76276,2210]
  11. }
  12.  
  13.  
  14. Files in this archive:
  15.  
  16.       PULLDOWN.PAS   :  Source code for the pulldown menu unit.
  17.  
  18.       PULLDOWN.TPU   :  The compiled unit.
  19.  
  20.       XPULLDW .PAS   :  A simple demonstration program using a
  21.                         pulldown menu system.
  22.  
  23.       PULLDOWN.DOC   :  THIS FILE.
  24.  
  25.  
  26. The pulldown menu implemented here is much simpler than the one used in
  27. PULLDOWN.MS (in the Editor Toolbox), and much easier to tailor to your
  28. particular application.  To us it, you simply define, in order, a series of
  29. typed constant strings: The first one will become the top bar menu; the
  30. subsequent lines will each  become a sub-menu.
  31.  
  32. Menu items are delimited within each string by the '|' character.
  33.  
  34. The procedure is invoked with the following parameters:
  35.  
  36.  
  37. procedure pulldownmenu(
  38.                  var txt1   : anystr;
  39.                  default,
  40.                  subdefault : integer;
  41.                  var choice,
  42.                  subchoice  : integer
  43.                                      );
  44.  
  45. where txt1 is the typed constant representing the top bar menu, default
  46. is the starting position on the bar menu, subdefault is the starting position
  47. in the submenu under default.  Vars choice and subchoice return the top menu
  48. choice, and sub-menu choice, respectively.  The last choice made from a
  49. sub-menu becomes the default subchoice when it is next called.
  50.  
  51. The menu starts as a bar menu: pressing enter or DOWNKEY will activate the
  52. appropriate pulldown menu; once activated, moving left or right will activate
  53. adjacent pulldown menus.  Pressing ESC will deactivate the pulldown menus; if
  54. they are already deactivated, pressing ESC will return a 0 in choice.
  55.  
  56. Instead of moving left or right (or up or down) the initial letter of the
  57. desired choice may be pressed.  If pulldown is activated, it will work within
  58. the current submenu.  In order for this to work properly, choices within a
  59. submenu should begin with different letters ( or else the FIRST matching
  60. letter will be selected).
  61.  
  62. PULLDOWN.PAS contains some windowing routines that can be built upon to
  63. make a complete windowing system like Turbo Prolog's.  For now, though, they
  64. are in a skeletal state, but servicable for menus and the like.
  65.  
  66.  
  67.  
  68.  
  69.